www.gusucode.com > AspFaq在线帮助系统 V1.0 > AspFaq在线帮助系统 V1.0\code\Inc\Cls_Templet.asp

    <%
Dim Templet_Tag,Templet_Ids,Templet_TagName
  '模板内容替换筛选
  Function Templet_Change(Tags,Ide)
    Ides=split(Ide,",")
    Select Case Tags
	  Case Else
	    Templet_Change=""
	End Select
  End Function
  '通用替换
  Function Templet_ChangeAll(TempletStr,Types)
    TempletStr=replace(TempletStr,"{$SiteName$}",Site_Name)
    TempletStr=replace(TempletStr,"{$SiteUrl$}",Site_Url)
    TempletStr=replace(TempletStr,"{$SiteDir$}",Site_Dir&"Skin/"&Site_Templet&"/")
	If Site_Type=1 Then
      TempletStr=replace(TempletStr,"{$SiteDirs$}Index.asp","{$SiteDirs$}Index.html")
	  sqlstr="select top 1 * from [Helps_Category] where Helps_Category_Show=0 order by Helps_Category_Order desc,Helps_Category_Id asc"
	  rs.open sqlstr,conn,1,3
	  If Not rs.eof Then
	    j=rs("Helps_Category_Id")
	  Else
	    j=0
	  End If
	  rs.close
      TempletStr=replace(TempletStr,"{$SiteDirs$}List.asp","{$SiteDirs$}Category_"&j&".html")
      TempletStr=replace(TempletStr,"{$SiteDirs$}Guest.asp","{$SiteDirs$}Guest.html")
	End If
    TempletStr=replace(TempletStr,"{$SiteDirs$}",Site_Dir)
	Select Case Types
	  Case 2
    	TempletStr=replace(TempletStr,"{$Ids$}",id)
    	TempletStr=replace(TempletStr,"{$HelpsCategoryName$}",Helps_Category_Name)
	  Case 4
    	TempletStr=replace(TempletStr,"{$HelpsSearchStr$}",Strs)
	End Select
	Templet_ChangeAll=TempletStr
  End Function
  '替换帮助
  Function Templet_ChangeHelp(TempletStr)
    TempletStr=replace(TempletStr,"{$HelpsTitle$}",Helps_Title)
    TempletStr=replace(TempletStr,"{$HelpsContent$}",Helps_Content)
	Templet_ChangeHelp=TempletStr
  End Function
  '列表替换
  Function Templet_ChangeLists(TempletStr)
    While instr(TempletStr,"{$$")>0
	  Templet_Tag=mid(TempletStr,clng(InStr(TempletStr,"{$$")),clng(InStr(TempletStr,"End$$}"))-clng(InStr(TempletStr,"{$$"))+6)
	  Templet_Tag2=split(split(Templet_Tag,"{$$")(1),"$$}")(0)
	  Templet_Tag3=split(Templet_Tag2,"(")(0)
	  Templet_Tag4=replace(split(Templet_Tag2,"(")(1),")","")
	  Templet_Tag5=split(split(Templet_Tag,"$$}")(1),"{$$")(0)
	  Select Case Templet_Tag3
	    Case "HelpsCategoryList"
		  TempletStr=replace(TempletStr,Templet_Tag,SHelpsCategoryList(Templet_Tag5))
		Case "HelpsList"
		  Ides=split(Templet_Tag4,",")
		  TempletStr=replace(TempletStr,Templet_Tag,SHelpsList(Ides(0),Ides(1),Ides(2),Templet_Tag5))
		Case "HelpsSearchList"
		  Ides=split(Templet_Tag4,",")
		  TempletStr=replace(TempletStr,Templet_Tag,SHelpsSearchList(Ides(0),Ides(1),Templet_Tag5))
	    Case Else
		  TempletStr=replace(TempletStr,Templet_Tag,"")
	  End Select
	Wend
	Templet_ChangeLists=TempletStr
  End Function
  '模块替换
  Function Templet_ChangeTy(TempletStr)
    While instr(TempletStr,"{$")>0
	  Templet_Tag=mid(TempletStr,InStr(TempletStr,"{$"),InStr(TempletStr,"$}")-InStr(TempletStr,"{$")+2)
	  Templet_Ids=split(split(Templet_Tag,"(")(1),")")(0)
	  Templet_TagName=replace(split(Templet_Tag,"(")(0),"{$","")
	  TempletStr=replace(TempletStr,Templet_Tag,Templet_Change(Templet_TagName,Templet_Ids))
	Wend
	Templet_ChangeTy=TempletStr
  End Function
%>